Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/Hypercard/La pile du mois nº42/La pile du mois n∫42/background_2723.xml

Extensible Markup Language | 1994-12-21 | 5KB | 107 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2723</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2533.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3174.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>388</left>
            <top>268</top>
            <right>404</right>
            <bottom>304</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8979</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpnav next,right -- Voyez le script du fondend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>372</left>
            <top>268</top>
            <right>387</right>
            <bottom>304</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8964</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpnav prev,left -- Voyez le script du fondend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>194</left>
            <top>274</top>
            <right>362</right>
            <bottom>298</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpdoMenu "About HyperCard..."end mouseUp</script>
    </part>
    <name></name>
    <script>on commandKeyDownif (charToNum(param(1)) = 112) thenif (there is a cd fld "Infos") thenhide groupsprint cd fld "Infos"show groupsend ifelse pass commandKeyDownend commandKeyDown------------------------------------------------------------------------on arrowKeyget param(1)if it = right then send mouseUp to bg btn id 1else if it = left then send mouseUp to bg btn id 2end arrowKey------------------------------------------------------------------------on nav direction,waylock screenif there is a cd fld "Infos" then set scroll of cd fld "Infos" to 0do "go"&&directionunlock screen with visual wipe wayend navUn tel handler pourrait également être écrit de la façon suivante :on navlock screenif there is a cd fld "Infos" then set scroll of cd fld "Infos" to 0do "go"&&param(1)unlock screen with visual wipe param(2)end nav------------------------------------------------------------------------on closeStacklock screenset the showPict of cd 1 to falserepeat with i = 1 to 5hide cd fld i of cd 1end repeatend closeStack------------------------------------------------------------------------on openStackget the versionif it < 2 thenANSWER "Cette pile ne peut être ouverte avec une version d'HyperCard"¬&&"antérieure à 2.0." with "Désolé"-- voyez le vocabulaire du moisdoMenu "Quit HyperCard"end ifend openStack------------------------------------------------------------------------on doMenuif param(1) = "About HyperCard..." thenwarning true,"About"wait until the mouseClickwarning false,"About"else pass doMenuend doMenu------------------------------------------------------------------------on warning boolean,whichPictif boolean thenpicture whichPict,resource,dialog,false,0,true -- ∆-- crée la fenêtre mais ne l'affiche passet the loc of window whichPict to main-- la centre sur l'écran affichant la barre des menusshow window whichPict-- la montreelseif there is a window whichPict then close window whichPict-- la ferme si elle existeend ifend warning</script>
</background>